Web Access to knitted HTML output

We have decided to take a leap and try plot_ly and knit to html output for this milestone. The html page is hosted as Github Pages and is accessible in this address: https://tin6150.github.io/phw251_group_z/milestone4_groupZ.html

Project and Milestone overview

{Pasted to group’s gdoc}

R setup and load libraries

(this code block omitted for brevity)

Visualizations & Code

Data needed to make decision: -which counties share all 3 attributes: low pop(rural), high median age, & high proportion of renters vs homeowners -which 5 counties have highest mortality rates due to chronic illness -what counties have received little to no funding recently? —not quite sure about this one

Rural Counties Deserving More HCAI Funding

Table 1 shows that the 5 counties of Siskiyou, Inyo, Mariposa, Plumas and Modoc have low population density (they qualify as Rural per National Rural Development Partnership’s definition), have a high median age, and fairly high ratio of renters. More importantly, they have one of the highest percentage of chronic diseases, and no HCAI fundings that are “In Closure” as of 2022-08-11.

viz_focus = viz_fund_dem_chron %>%
  filter( rural_class      == "rural",
          high_med_age     == TRUE 
          ##high_rental    == TRUE  
          )

focus_table = viz_focus %>%
  select( County, 
          pop12_sqmi,
          #rural_class,  
          #low_pop,
          med_age,
          #high_med_age,
          rent_own_ratio,
          #high_rental,
          pct,                    # prevalence,         
          Numeric_Cost, 
          #fund_per_cap,
          #`Number of OSHPD Projects`,
  ) %>% 
  arrange( desc( pct )) %>%
  rename(
    `Pop Density` = pop12_sqmi,
    `Median Age` = med_age,
    `Rent:Own Ratio` = rent_own_ratio,
    `% Chronic`      = pct,
    `HCAI Fund in 2022` = Numeric_Cost
  ) %>%  
  head( 5 ) 

kable( focus_table,
       booktabs=T,
       digits=c(0,1,1,2,2,0),
       format.args=list(big.mark=','),
       caption = "Rural Counties with high median age, rental ratio, and chronic disease rate",
       )
Rural Counties with high median age, rental ratio, and chronic disease rate
County Pop Density Median Age Rent:Own Ratio % Chronic HCAI Fund in 2022
Siskiyou 7.1 46.8 0.54 2.86 0
Inyo 1.8 45.5 0.57 1.88 0
Mariposa 12.6 49.2 0.47 1.72 0
Plumas 7.7 49.5 0.44 1.69 0
Modoc 2.3 46.0 0.46 1.43 0